home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt32s2.arc / PIBDWLOC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-08  |  1.3 KB  |  44 lines
  1.  
  2. BEGIN (* PibDownLoad *)
  3.                                    (* Use file time provided by sender *)
  4.                                    (* by default.                      *)
  5.    Use_Time_Sent   := TRUE;
  6.                                    (* Ctrl Z ends Ascii file by default *)
  7.    Ascii_Use_CtrlZ := TRUE;
  8.                                    (* Don't display received text *)
  9.    Ascii_Show_Text := FALSE;
  10.                                    (* Get protocol if necessary *)
  11.  
  12.    IF Transfer_Protocol = None THEN
  13.       Transfer_Protocol := Get_Download_Protocol;
  14.  
  15.                                    (* Display transfer status   *)
  16.    Display_Status := TRUE;
  17.                                    (* Perform transfer          *)
  18.    CASE Transfer_Protocol Of
  19.  
  20.       Ascii:          Receive_Ascii_File;
  21.  
  22.       Xmodem_Chk,
  23.       Modem7_CRC,
  24.       Telink,
  25.       Modem7_Chk,
  26.       Ymodem_Batch,
  27.       Ymodem,
  28.       Xmodem_Crc:     Do_Xmodem_Download( Transfer_Protocol );
  29.  
  30.       Kermit:         Receive_Kermit_File;
  31.  
  32.       ELSE ;
  33.  
  34.    END  (* CASE *);
  35.                                    (* Indicate end of transfer *)
  36.    IF ( NOT Silent_Mode ) THEN
  37.       FOR I := 1 TO Transfer_Bells DO
  38.          BEGIN
  39.             WRITE( CHR( BELL ) );
  40.             DELAY( 250 );
  41.          END;
  42.  
  43. END   (* PibDownLoad *);
  44.